www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_step2_add_custom_content_loop_lable.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<script src="../../inc/admin.js" type="text/javascript"></script>
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE2 {
color: #0033FF;
font-size: 15px;
font-weight: bold;
}
-->
</style>
<!------------------------------------------------div:new2 mode_select------------------------>
<div id="www2" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:200px; z-index:2; border: 1px dashed #999999;">
<table width="550" height="307" border="1" cellpadding="0" cellspacing="0" bgcolor="#cccccc" bordercolor="#333333">
<tr><td height="20" width=550 background="../images/titbg.gif" bordercolor="#333333">
选择编辑模式
</td><td height="20" background="../images/titbg.gif" bordercolor="#333333">
<!--a href=# onclick="closen2();">关闭</a-->
</td></tr>
<tr><td colspan=3>
1.<a href="#" onClick="yicenloopmode();">进入 1层循环内容输出 标签编辑模式</a><br><br>
2.<a href="#" onclick="ercenloopmode();">进入 2层循环内容输出(如行,列这2层循环) 标签编辑模式</a><br><br>
</td></tr>
</table>
</div>
<!----------------------------end------div:new2 mode_select------------------------>
<script language="javascript">
<%
Randomize '初始化随机数生成器。
%>
var modes;
var rs_name;
function yicenloopmode(){
rs_name="rs_x_<%=clng(rnd(255)*888+10)%>_2";
document.getElementById("rsname").value=rs_name;
AJAXfade(1,'l_do');
AJAXfade(0,'www2');
AJAXfade(1,'mode1');
AJAXfade(0,'mode2');
AJAXfade(0,'di2xhn');
document.all.aaassb1.mode1.value="1";
}
function ercenloopmode(){
rs_name="rs_x_<%=clng(rnd(255)*888+10)%>_1";
document.getElementById("rsname").value=rs_name;
AJAXfade(1,'l_do');
AJAXfade(0,'www2');
AJAXfade(0,'mode1');
AJAXfade(1,'mode2');
AJAXfade(1,'di2xhn');
document.all.aaassb1.mode1.value="2";
}
</script>
<%
set filea=new Cls_FSO
fpath=request("fpath")
bname="my_b_"&trim(request("bnm"))
sqlcont=trim(request("slqms"))
bname_err=0
if bname="" then
bname_err=1
end if
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "^[A-Za-z0-9_]+$" ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(bname) ' 执行搜索测试。
if trim(request("fenye"))="" then
%>
<script language=javascript>
alert("每页显示数量必填!");
history.go(-1);
</script>
<%
else
if sqlcont="" then
%>
<script language=javascript>
alert("sql查询语句不能为空!");
history.go(-1);
</script>
<%
else
If retVal<>true Then
bname_err=1
End If
if bname_err=1 then
%>
<script language=javascript>
alert("标签名为空 或者 不是字母+数字及_号的组合");
history.go(-1);
</script>
<%
response.end
else
params_str=""
for iit=1 to cint(request("params_len"))
if trim(request("c"&cstr(iit)))<>"" then
sss1=replace(replace(trim(request("c"&cstr(iit))),",",""),"|","")
sss1=replace(replace(sss1,chr(34),"”"),"'","‘")
sss2=replace(replace(trim(request("s"&cstr(iit))),",", "，" ),"|","")
sss2=replace(replace(sss2,chr(34),"”"),"'","‘")
params_str=params_str&sss1&","&sss2&"|"
end if
next
if params_str<>"" then
params_str=left(params_str,len(params_str)-1)
end if
beizhuz=trim(request("lbsm"))
par=split(params_str,"|")
yooo=0
for iiii=0 to ubound(par)
sss33=split(par(iiii),",")
sss3=sss33(0)
for iiiii=0 to ubound(par)
sss44=split(par(iiiii),",")
sss4=sss44(0)
if sss3=sss4 and cint(iiiii)<>cint(iiii) then
yooo=1
end if
next
next
if yooo=1 then
%>
<script language=javascript>
alert("发现参数列表中有同名参数，必须每个参数都不同名字!");
history.go(-1);
</script>
<%
response.end
end if
On Error Resume Next
Set rs = Conn.Execute(sqlcont)
'If Err.Number <> 0 Then
'为了不使where a=$xx_var_asp$i之类错误，所以下面这句加了 and 1=0
If Err.Number <> 0 and 1=0 Then
Set rs = Nothing
FoundErr = True
ErrMsg = ErrMsg & "SQL查询失败，查询代码：" & LabelIntro2 & "错误原因：" & Err.Description
%>
<script language=javascript>
alert("<%=ErrMsg%>");
history.go(-1);
</script>
<%
Err.Clear
Else
if yooo<>1 then
%>
<style type="text/css">
<!--
.STYLE1 {color: #0033FF}
-->
</style>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_chk2_add_custom_content_loop_lable.asp" method="post" name=aaassb1 id="aaassb1">
<table width=730 id="parms" name="parms">
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(aa,bb,cc){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
//------------------v2
if (cc==""||cc==null){cc="2"}
var ccc="<select name=g"+now_pos+">";
ccc=ccc+"<option value=1 ";
if (cc=="1"){ccc=ccc+" selected"};
ccc=ccc+">参数外需加双引号</option>"
ccc=ccc+"<option value=2 ";
if (cc=="2"){ccc=ccc+" selected"};
ccc=ccc+">不需加双引号</option>"
ccc=ccc+"<option value=3 ";
if (cc=="3"){ccc=ccc+" selected"};
ccc=ccc+">不加双引号的纯数字</option>"
ccc=ccc+"</select>";
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td><font color=#ff5588>标签参数名"+now_pos+":<input size=15 name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text size=15 value='"+bb+"'>"+",参数值格式:"+ccc+"</font></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
//------------------v2
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<tr align="left">
<td colspan="2">
标签保存路径:/Label/custom_Label/<%=request("fpath")%></td>
</tr>
<tr align="left">
<td colspan="2">
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
标签名:{$$
<input name="bnm" type="text" value="<%=bname%>">
}</td>
</tr>
<tr align="left">
<td colspan="2">
标签说明:<textarea name="lbsm" cols=40 rows=3><%=request("lbsm")%></textarea></td>
</tr>
</table>
<table>
<tr align="left">
<td colspan="2">
<br />
<a href=# onClick="add_p('','');"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left">
<td colspan="2">
每页显示数量:<input name="fenye" type="text" value="<%=request("fenye")%>">
<br />
<font color="#FF6600">(每页显示数量中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 )</font><br><br>
</td>
</tr>
<tr align="left">
<td colspan="2">
是否分页显示:<select name="iffen">
<option value="1" <%if request("iffen")="yes" then response.write "selected"%>>是</option>
<option value="0" <%if request("iffen")="no" then response.write "selected"%>>否</option>
</select>
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td colspan="2">
本标签内使用的rs记录集的自定义对象名:<input name="rsname" type="text" value="" id="rsname"> 如果标签的标签正文代码内再嵌套另一标签(如循环嵌套)，则多个标签的rs记录集的对象名可能冲突，此时要在这里改这个对象名，你在标签的正文代码中要用这个对象名来调用本标签使用的rs记录集
</td>
</tr>
<tr align="left">
<td colspan="2" height="8">
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td height="130" bgcolor="#AAE0FB">
<%
sssazxa="1"
%>
本标签生成html静态页时的选项1(<strong>此项不要乱改</strong>):</td>
<td bgcolor="#AAE0FB"><table width="94%" height="69" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><strong>1.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="1" <%if sssazxa="1" then response.write "checked"%>>
此标签不含功能类代码(如对提交的评论的处理,会员注册等功能类代码),在生成html静态页后,即使在 放在html生成目录里的原asp文件(由这一asp文件来生成html的那个asp文件)里,也替换原asp文件内的此标签对应的全部asp代码为生成后的html代码,来使原asp文件的各链接为html文件链接,而不是asp文件的链接</td>
</tr>
<tr>
<td height="9"></td>
</tr>
<tr>
<td><strong>2.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="2" <%if sssazxa="2" then response.write "checked"%>>
此标签是纯赋值用的标签，不允许系统在标签编译得到的内容外加上任何辅助性的字符串，如<title>abc</title>，不允许系统加辅助性的字符串而使之变为<title><!--complie_link[$get_title()]-->abc<!--complie_link_end[$get_title()]--></title>，选择本项设置会使本标签失去上面第一项设置里所说的"来使原asp文件的各链接为html文件链接,而不是asp文件的链接"的功能，但不影响其他标签使用第一项设置的功能<strong>,选择本项设置还会使 标签生成html静态页时的选项2 里面设置的所有 对本标签的ajax的js文件调用 都失效</strong></td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td><strong>3.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="3" <%if sssazxa="3" then response.write "checked"%>>
此标签含功能类代码(如对提交的评论的处理,会员注册等功能类代码),在生成html静态页后,保留功能asp代码至 html生成目录里 的原asp文件(由这一asp文件来生成html的那个asp文件)里 <strong>(注意:要保证生成的html页里的所有form表单都保留原来的 提交到原asp文件,而不是提交到生成后的html页里,且提交路径只能用相对路径,不能用任何绝对路径)</strong></td>
</tr>
</table></td>
</tr>
<tr align="left">
<td colspan="2" height="8">
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td height="130" bgcolor="#AAE0FB">
<%
sssazxaxx=""
%>
本标签生成html静态页时的选项2(<strong>此项不要乱改</strong>):</td>
<td bgcolor="#AAE0FB"><table width="94%" height="69" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><p><strong>如果此标签含访问量统计显示代码或评论列表显示代码等用于实时更新显示的代码,请编辑或新增以下选项:</strong><br>
<br>
<table id="htmeddd">
</table>
<input type="hidden" name="params_lenb" id="params_lenb" value="" />
<br>
<a href="javascript:void(0)" onClick="add_ps('','');"> <span class="STYLE2">点击本处来在生成后的html页里新增一个对本标签的js调用</span></a><br>
<script language="javascript">
var org_pos2=1;
var now_pos2=org_pos2;
function add_ps(aa,bb){
var theTable = document.getElementById("htmeddd");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaabas"+now_pos2;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<span class=STYLE1>生成后的html静态页对本标签的js调用"+now_pos2+":</span>生成本标签对应的javascript的ajax的js文件调用至生成后的html文件里,来实时的显示出访问量或实时的显示出评论列表等需要实时更新显示的东西,标签内访问量显示输出处或评论列表显示输出处(或其他功能的显示输出处)的开始asp代码的自定义开始标记:<input name=sc"+now_pos2+" type=text id=sc"+now_pos2+" size=22 value='"+aa+"'>,标签内访问量显示输出处或评论列表显示输出处(或其他功能的显示输出处)的结束asp代码的自定义结束标记:<input name=sd"+now_pos2+" type=text id=sd"+now_pos2+" size=22 value='"+bb+"'> ,请在下面的标签代码里放好这两个自定义开始标记和自定义结束标记 ,注意标记可以用<!--startt1-->之类注释类代码来标记而不显示出,且标记要唯一,不能和本标签内其他代码字符串重复 .<br><a href='javascript:void(0)' onclick=del_ps('"+theTable.rows[rowNumber].id+"')><span class=STYLE3> 点击本处删除此js调用"+now_pos2+"</span></a></p><hr align=left width=500>"
// theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text value='"+bb+"'></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_lenb");
aa.value=now_pos2;
now_pos2=now_pos2+1;
}
function del_ps(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("htmeddd");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<%if sssazxaxx="" then%>
<script language="javascript">
add_ps("","");
add_ps("","");
</script>
<%end if%>
<%if sssazxaxx<>"" then
sssazxa2=split(sssazxaxx,"$123$121$aspndcpu232$321$")
for qdddpa=0 to ubound(sssazxa2)
sssazxa2_1=sssazxa2(qdddpa)
sssazxa3=split(sssazxa2_1,"$123$121$accndcpu232$321$")
sssazxa3_1=replace_when_complie(replace(sssazxa3(0),chr(34),""))
sssazxa3_2=replace_when_complie(replace(sssazxa3(1),chr(34),""))
%>
<script language="javascript">
add_ps("<%=sssazxa3_1%>","<%=sssazxa3_2%>");
</script>
<%
next
end if
%>
</td>
</tr>
<tr>
<td height="9"></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr align="left">
<td colspan="2">
<div id="di2xhn" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none; z-index:2;">
第二层循环的循环次数（如每行的循环列数）:<input name="di2xh_num" type="text" value="3">
<br />
<font color="#FF6600">(第二层循环的循环次数中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值)
</font> <br /> <br />
</div>
</td>
</tr>
<tr align="left">
<td width="86">
查询sql语句:</td>
<td width="632">
<font style="font-size:14px" color="#3300FF">在以下的 <strong>查询sql语句</strong>中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 <br />
还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值， <br />
而用$xx_request_asp$i可以读request("i")的值,注意单引号的使用 . 并可以自定义where子句<br>
,注意 如$xx_var_asp$i要用空格或'号或%号或,号或)号或]号来结束，<br>
如where aaa=$xx_var_asp$i and.... 是对的 <br>
而where aaa=$xx_var_asp$iand....是错的 </font><br>
<textarea name="sqlms" cols=80 rows=8 onChange="update_sql_list();"><%=sqlcont%></textarea></td>
</tr>
<tr align="left"><td colspan="2">
<font style="font-size:14px" color="#3300FF">
循环体代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
在以下的 循环体代码中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值
<br />调用标签时还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互
<br />
而用$xx_request_asp$i可以读request("i")的值
<hr>
系统使用的数据库连接对象名为newdsoft_conn_obj ，你可以调用这个连接对象<br />
</font>
</td>
</tr>
</table>
<script language="javascript">
var nMessage=document.getElementById("ksdaima");
function setf(who) {
nMessage = document.getElementById(who);
}
function AppTag(str1)
{
nMessage.value += str1;
}
function InsertTag(str1)
{
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = ch_text + str1;
}
else
{
nMessage.value=nMessage.value+str1;
nMessage.Message.focus();
}
}
</script>
<br />
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
可以调用的数据库字段列表(点下面某输入框后,再点击某字段列表来插入他们到输入框):
</td>
<td width="500">
<table id="sqlplist" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<script language="javascript">
var theTable1 = document.getElementById("sqlplist");
function update_sql_list(){
var p1=document.getElementById("sqlms").value.indexOf("select ",0)+7;
var p2=document.getElementById("sqlms").value.indexOf(" from ",0);
var sqlstr2=document.getElementById("sqlms").value.substring(p1,p2);
//alert(sqlstr2);
for(var ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//删两次才干净-----不知道为什么
for(ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//删两次才干净-----不知道为什么
for(ff1 =0;ff1<theTable1.rows.length;ff1=ff1+1)
{
theTable1.deleteRow(parseInt(ff1));
theTablea.deleteRow(parseInt(ff1));
theTable3.deleteRow(parseInt(ff1));
}
//theTable1.innerHTML="";
var bpos=0;
var www2="";
var num=0;
var cha=0;
for(var iitt=0;iitt<=sqlstr2.length-1;iitt++)
{
if(sqlstr2.substring(iitt,iitt+1)==","|iitt==sqlstr2.length-1){
if (iitt==sqlstr2.length-1) {
cha=1; }
else
{cha=0;
}
www2=sqlstr2.substring(bpos,iitt+cha);
bpos=iitt+1;
num=num+1;
//-------------------------------------------------------
if ((num%2)==1){
cols=0;
var rowNumber1 = parseInt(theTable1.rows.length);
theTable1.insertRow(rowNumber1);
theTable1.rows[rowNumber1].id="aaaaddd"+rowNumber1;
theTablea.insertRow(rowNumber1);
theTablea.rows[rowNumber1].id="aaaaddddccc"+rowNumber1;
theTable3.insertRow(rowNumber1);
theTable3.rows[rowNumber1].id="aaaaddddccc33"+rowNumber1;
}
theTable1.rows[rowNumber1].insertCell(cols);
theTable1.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql('"+www2+"');>"+www2+"</a></td>";
theTablea.rows[rowNumber1].insertCell(cols);
theTablea.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql2('"+www2+"');>"+www2+"</a></td>";
theTable3.rows[rowNumber1].insertCell(cols);
theTable3.rows[rowNumber1].cells[cols].innerHTML ="<td height=25 width=150 style='word-break:break-all;background-color:#eeeeee'><a href='javascript:' onclick=insertsql3('"+www2+"');>"+www2+"</a></td>";
cols=cols+1;
}//end if
}//end for
}
function insertsql(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
if(rst2!=undefined){
InsertTag(rst2);
}
}
function insertsql2(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
if(rst2!=undefined&&fckddd==1){
var oEditor = FCKeditorAPI.GetInstance("Content") ;
oEditor.InsertHtml(rst2);
}
}
function insertsql3(sss){
var rst2=showModalDialog("D_select_field_format.asp?fldname="+sss,"","dialogWidth:400px; dialogHeight:280px; help: no; scroll: no; status: no");
if(rst2!=undefined&&fckddd==1){
var oEditor = FCKeditorAPI.GetInstance("Content2") ;
oEditor.InsertHtml(rst2);
}
}
</script>
<div id="mode1" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:200px; z-index:2; border: 0px dashed #999999;">
<table bgcolor="#F2F2F2" width=600>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环开始前的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_qian_asp" cols=65 rows=5 onFocus="setf('globa_qian_asp')"><table border="0" cellpadding="0" cellspacing="0"></textarea>
<br><a href="javascript:admin_Size(-10,'globa_qian_asp')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_qian_asp')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="left" align="center"><td width=180>
在sql赋值语句(如sql="select .....")后面执行的asp代码（如 控制sql语句的值的asp代码，系统使用的sql语句变量名为sql）,(支持写入asp代码(要用<% %>号括起来)与标签)，可以为空：</td>
<td width=500>
<textarea name="sql_run" cols=65 rows=5 onFocus="setf('sql_run')"><%=hhksss1%></textarea>
<br><a href="javascript:admin_Size(-10,'sql_run')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'sql_run')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp_1_1" cols=65 rows=5 onFocus="setf('run_asp_1_1')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp_1_1')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp_1_1')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table width=600>
<tr valign="middle" align="left"><td width=170>
每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="ksdaima" cols=65 rows=5 onfocus="setf('ksdaima')"><tr><td></textarea>
<br><a href="javascript:admin_Size(-10,'ksdaima')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'ksdaima')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<%
if request("edittype")="0" then%>
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table bgcolor="#F2F2F2">
<tr valign="middle" align="center"><td width=80>
循环体代码：</td>
<td width=600>
<textarea name="Content" cols=70 rows=20><table border=0><tr><td>循环内容</td></tr></table></textarea>
<br><a href="javascript:admin_Size(-10,'Content')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content')"><img src="../images/plus.gif" unselectable="on" border='0'></a></td>
</tr>
</table>
<%else%>
<br />
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
<font color="#0033FF">
可以调用的数据库字段列表(点下面编辑器后,再点击右边某字段列表来插入他们到编辑器里):
</font>
</td>
<td width="500">
<table id="sqlplistaaaaa" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table><tr valign="middle" align="center"><td width=80>
循环体html代码输出(支持写入asp代码与标签)：</td>
<td width=600>
<textarea name="Content" style="display:none" onfocus="setf('Content')"><table border=0><tr><td>循环内容</td></tr></table></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '85%' ;
oFCKeditor.Height = '400' ;
oFCKeditor.Value = '<table><tr><td>循环内容</td></tr></table>' ;
oFCKeditor.ReplaceTextarea() ;
//-->
</script></td>
</tr>
</table>
<%end if
%>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="jiesdaima" cols=65 rows=5 onfocus="setf('jiesdaima')"></td></tr></textarea>
<br><a href="javascript:admin_Size(-10,'jiesdaima')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'jiesdaima')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环结束后的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_end_asp" cols=65 rows=5 onFocus="setf('globa_end_asp')"></table></textarea>
<br><a href="javascript:admin_Size(-10,'globa_end_asp')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_end_asp')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
</div>
<div id="mode2" style="filter:blendTrans(duration=1);left:1px;top:1px; visibility:hidden;display:none;width:600px; z-index:2; border: 0px dashed #999999;">
<table bgcolor="#F2F2F2" width=600>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环开始前的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_qian_asp2" cols=65 rows=5 onFocus="setf('globa_qian_asp2')"><table border="0" cellpadding="0" cellspacing="0"></textarea>
<br><a href="javascript:admin_Size(-10,'globa_qian_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_qian_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="left" align="center"><td width=180>
在sql赋值语句(如sql="select .....")后面执行的asp代码（如 控制sql语句的值的asp代码，系统使用的sql语句变量名为sql）,(支持写入asp代码(要用<% %>号括起来)与标签)，可以为空：</td>
<td width=500>
<textarea name="sql_run2" cols=65 rows=5 onFocus="setf('sql_run2')"></textarea>
<br><a href="javascript:admin_Size(-10,'sql_run2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'sql_run2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp1" cols=55 rows=5 onfocus="setf('run_asp1')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp1')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp1')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环前要执行的asp代码（可以为空）,要用<% %>号括起来：</td>
<td width=500>
<textarea name="run_asp2" cols=55 rows=5 onfocus="setf('run_asp2')"></textarea>
<br><a href="javascript:admin_Size(-10,'run_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'run_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="yi_ksdaima2" cols=55 rows=5 onfocus="setf('yi_ksdaima2')"><tr></textarea>
<br><a href="javascript:admin_Size(-10,'yi_ksdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'yi_ksdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环的开始html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="ksdaima2" cols=55 rows=5 onFocus="setf('ksdaima2')"><td></textarea>
<br><a href="javascript:admin_Size(-10,'ksdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'ksdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<%
if request("edittype")="0" then%>
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table bgcolor="#F2F2F2">
<tr valign="middle" align="center"><td width=80>
循环体代码：</td>
<td width=600>
<script src="../../inc/admin.js" type="text/javascript"></script>
<textarea name="Content2" cols=70 rows=20><table border=0><tr><td>循环内容</td></tr></table></textarea>
<br><a href="javascript:admin_Size(-10,'Content')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content')"><img src="../images/plus.gif" unselectable="on" border='0'></a></td>
</tr>
</table>
<%else%>
<br />
<table width=700 border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="80">
<font color="#0033FF">
可以调用的数据库字段列表(点下面编辑器后,再点击右边某字段列表来插入他们到编辑器里):
</font>
</td>
<td width="500">
<table id="sqlplistaaaaa2" width=600 border=1 cellpadding="0" cellspacing="0" bordercolor="#0000ff">
</table>
</td>
</tr>
</table>
<br />
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table><tr valign="middle" align="center"><td width=600>
循环体html代码输出(支持写入asp代码与标签)：</td>
<td width=600>
<textarea name="Content2" style="display:none"><table border=0><tr><td>循环内容</td></tr></table></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content2') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '500' ;
oFCKeditor.Height = '400' ;
oFCKeditor.Value = '<table><tr><td>循环内容</td></tr></table>' ;
oFCKeditor.ReplaceTextarea() ;
var fckddd=0;
function FCKeditor_OnComplete( editorInstance )
{
//alert("3423");
fckddd=1;
}
//-->
</script></td>
</tr>
</table>
<%end if
%>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第二层循环(如列循环)的每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="jiesdaima2" cols=55 rows=5 onfocus="setf('jiesdaima2')"></td></textarea>
<br><a href="javascript:admin_Size(-10,'jiesdaima2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'jiesdaima2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
第一层循环(如行循环)的每次循环的结束html代码输出(支持写入asp代码与标签)：</td>
<td width=500>
<textarea name="yi_jiesdaima22" cols=55 rows=5 onfocus="setf('yi_jiesdaima22')"></tr></textarea>
<br><a href="javascript:admin_Size(-10,'yi_jiesdaima22')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'yi_jiesdaima22')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr valign="middle" align="center"><td width=180>
整个循环结束后的html代码输出（可以为空）,(支持写入asp代码(要用<% %>号括起来)与标签)：</td>
<td width=500>
<textarea name="globa_end_asp2" cols=65 rows=5 onFocus="setf('globa_end_asp2')"></table></textarea>
<br><a href="javascript:admin_Size(-10,'globa_end_asp2')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'globa_end_asp2')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
%>
</div>
<table>
<tr align="center" width=600>
<td>
<input type="hidden" name="mode1" value="" id="mode1" />
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>" />
<input type="submit" value="添 加" />
</td>
</tr>
</table>
</form>
</div>
<%
end if
end if
end if
%>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
<%
if trim(params_str)="" then
lll=-1
else
ssssppp=split(params_str,"|")
lll=ubound(ssssppp)
end if
%>
<% for i=0 to lll
ssssppp2=split(ssssppp(i),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
%>
add_p("<%=sss1%>","<%=sss2%>");
<%next%>
</script>
<script language=javascript>
AJAXfade(0,'l_do');
AJAXfade(1,'www2');
var theTablea = document.getElementById("sqlplistaaaaa");//必须放在最后
var theTable3 = document.getElementById("sqlplistaaaaa2");//必须放在最后
update_sql_list();//必须放在最后
</script>
<%
AJAXcloseLoader()
%>
</html>